home *** CD-ROM | disk | FTP | other *** search
- -- background: 5409 from stack: in.0-2
- -- bmap block id: 36466
- -- flags: 0000
- -- background id: 0
- -- name: learn more
- ----- HyperTalk script -----
- -- This handler goes back to the last card if the user clicks
- -- outside the "window".
- on mouseUp
- if "field" is not in the target and "button" is not in the target then goBack
- end mouseUp
-
- -- This handler stores the name of the last card.
- on goBack
- go cd "How do I learn " of stack "Intro to HyperCard 2.0"
- end goBack
-
-
- -- part 1 (field)
- -- low flags: 01
- -- high flags: 0000
- -- rect: left=56 top=83 right=193 bottom=417
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 174
- -- text size: 14
- -- style flags: 0
- -- line height: 15
- -- part name:
-
-
- -- part 2 (button)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=47 top=59 right=196 bottom=424
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: wind
-
-
- -- part 3 (button)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=54 top=61 right=76 bottom=74
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: closebox
- ----- HyperTalk script -----
- -- This handler sets the cursor to simulate a real closeBox.
- on mouseEnter
- set the cursor to "arrow"
- end mouseEnter
-
- -- This handler sets the cursor to simulate a real closeBox.
- on mouseWithIn
- repeat until the mouseloc is not within the rect of me or the mouse is down
- set the cursor to "arrow"
- end repeat
- if the mouse is down then
- send mouseUp to me
- end if
- end mouseWithIn
-
- -- This handler simulates clicking in a closeBox.
- on mouseUp
- set the icon of me to 7937
- wait 15
- set the icon of me to 0
- goBack
- end mouseUp
-
-